BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Game / T / Tickle.sit / Tickle / Tickle.Txt < prev
MacBinary | 1987-03-19 | 4.0 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Tickle.Txt
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Swift 3D 3D Graphic `(poly/swift3D3DGraphic)`	ext	Unsupported
`1%`	dexvert	Boost Text serialization `(other/boostTextSerialization)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Thu Mar 19 19:41:29 1987, modified Thu Mar 19 19:41:29 1987, creator Macintosh Edit, type ASCII, 3504 bytes "Tickle.Txt" , at 0xe30 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 54 69 63 6b 6c 65 | 2e 54 78 74 00 00 00 00 |..Tickle|.Txt....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 00 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 0d b0 00 | 00 01 5c 9c 86 40 b9 9c |........|..\..@..|
|00000060| 86 40 b9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.@......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b7 6e 00 00 |........|.....n..|
|00000080| 7b 20 54 69 63 6b 6c 65 | 2c 20 a9 20 4a 6f 73 65 |{ Tickle|, . Jose|
|00000090| 70 68 20 43 61 73 61 7a | 7a 61 2c 20 31 39 38 36 |ph Casaz|za, 1986|
|000000a0| 20 7d 0d 0d 50 52 4f 47 | 52 41 4d 20 74 69 63 6b | }..PROG|RAM tick|
|000000b0| 6c 65 3b 0d 0d 09 55 53 | 45 53 0d 09 09 53 70 65 |le;...US|ES...Spe|
|000000c0| 65 63 68 49 6e 74 66 3b | 0d 0d 09 43 4f 4e 53 54 |echIntf;|...CONST|
|000000d0| 0d 09 09 41 70 70 6c 65 | 4d 65 6e 75 49 64 20 3d |...Apple|MenuId =|
|000000e0| 20 31 3b 0d 09 09 4d 79 | 4d 65 6e 75 49 64 20 3d | 1;...My|MenuId =|
|000000f0| 20 31 30 3b 0d 09 09 61 | 62 6f 75 74 69 64 20 3d | 10;...a|boutid =|
|00000100| 20 33 30 30 30 3b 0d 0d | 09 56 41 52 0d 09 09 45 | 3000;..|.VAR...E|
|00000110| 76 65 6e 74 20 3a 20 45 | 76 65 6e 74 52 65 63 6f |vent : E|ventReco|
|00000120| 72 64 3b 0d 09 09 74 68 | 65 68 61 6e 64 6c 65 2c |rd;...th|ehandle,|
|00000130| 20 4f 6c 64 4d 65 6e 75 | 2c 20 74 68 65 74 65 65 | OldMenu|, thetee|
|00000140| 68 65 65 20 3a 20 48 61 | 6e 64 6c 65 3b 0d 09 09 |hee : Ha|ndle;...|
|00000150| 41 70 70 6c 65 4d 65 6e | 75 2c 20 4d 79 4d 65 6e |AppleMen|u, MyMen|
|00000160| 75 20 3a 20 4d 65 6e 75 | 48 61 6e 64 6c 65 3b 0d |u : Menu|Handle;.|
|00000170| 09 09 73 70 65 65 63 68 | 68 20 3a 20 53 70 65 65 |..speech|h : Spee|
|00000180| 63 68 48 61 6e 64 6c 65 | 3b 0d 09 09 61 6e 65 72 |chHandle|;...aner|
|00000190| 72 20 3a 20 53 70 65 65 | 63 68 45 72 72 3b 0d 09 |r : Spee|chErr;..|
|000001a0| 09 64 57 69 6e 64 6f 77 | 2c 20 57 68 69 63 68 57 |.dWindow|, WhichW|
|000001b0| 69 6e 64 6f 77 20 3a 20 | 57 69 6e 64 6f 77 50 74 |indow : |WindowPt|
|000001c0| 72 3b 0d 09 09 74 68 65 | 64 6c 6f 67 20 3a 20 64 |r;...the|dlog : d|
|000001d0| 69 61 6c 6f 67 70 74 72 | 3b 0d 09 09 64 52 65 63 |ialogptr|;...dRec|
|000001e0| 6f 72 64 20 3a 20 57 69 | 6e 64 6f 77 52 65 63 6f |ord : Wi|ndowReco|
|000001f0| 72 64 3b 0d 09 09 71 75 | 69 74 20 3a 20 42 6f 6f |rd;...qu|it : Boo|
|00000200| 6c 65 61 6e 3b 0d 09 09 | 64 72 65 63 74 20 3a 20 |lean;...|drect : |
|00000210| 72 65 63 74 3b 0d 09 09 | 4d 65 6e 75 53 65 6c 65 |rect;...|MenuSele|
|00000220| 63 74 65 64 20 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |cted : l|ongint;.|
|00000230| 09 09 43 6c 69 63 6b 52 | 67 6e 2c 20 74 68 65 4d |..ClickR|gn, theM|
|00000240| 65 6e 75 49 64 2c 20 74 | 68 65 49 74 65 6d 2c 20 |enuId, t|heItem, |
|00000250| 64 75 6d 6d 79 2c 20 64 | 69 74 65 6d 2c 20 61 6c |dummy, d|item, al|
|00000260| 2c 20 7a 20 3a 20 49 6e | 74 65 67 65 72 3b 0d 09 |, z : In|teger;..|
|00000270| 09 6e 61 6d 65 68 6f 6c | 64 65 72 2c 20 74 69 74 |.namehol|der, tit|
|00000280| 6c 65 73 74 72 2c 20 70 | 61 72 73 74 72 20 3a 20 |lestr, p|arstr : |
|00000290| 73 74 72 32 35 35 3b 0d | 0d 09 50 52 4f 43 45 44 |str255;.|..PROCED|
|000002a0| 55 52 45 20 74 61 6c 6b | 61 6c 65 72 74 3b 0d 09 |URE talk|alert;..|
|000002b0| 42 45 47 49 4e 0d 09 09 | 61 6c 20 3a 3d 20 30 3b |BEGIN...|al := 0;|
|000002c0| 0d 09 09 50 61 72 61 6d | 54 65 78 74 28 70 61 72 |...Param|Text(par|
|000002d0| 73 74 72 2c 20 27 27 2c | 20 27 27 2c 20 27 27 29 |str, '',| '', '')|
|000002e0| 3b 0d 09 09 61 6c 20 3a | 3d 20 53 74 6f 70 41 6c |;...al :|= StopAl|
|000002f0| 65 72 74 28 31 2c 20 4e | 49 4c 29 3b 0d 09 09 71 |ert(1, N|IL);...q|
|00000300| 75 69 74 20 3a 3d 20 74 | 72 75 65 3b 0d 09 45 4e |uit := t|rue;..EN|
|00000310| 44 3b 0d 0d 09 50 52 4f | 43 45 44 55 52 45 20 73 |D;...PRO|CEDURE s|
|00000320| 70 65 61 6b 69 74 3b 0d | 09 42 45 47 49 4e 0d 09 |peakit;.|.BEGIN..|
|00000330| 09 61 6e 65 72 72 20 3a | 3d 20 30 3b 0d 09 09 53 |.anerr :|= 0;...S|
|00000340| 70 65 65 63 68 50 69 74 | 63 68 28 73 70 65 65 63 |peechPit|ch(speec|
|00000350| 68 68 2c 20 34 34 30 2c | 20 4e 6f 43 68 61 6e 67 |hh, 440,| NoChang|
|00000360| 65 29 3b 0d 09 09 74 68 | 65 74 65 65 68 65 65 20 |e);...th|eteehee |
|00000370| 3a 3d 20 47 65 74 52 65 | 73 6f 75 72 63 65 28 27 |:= GetRe|source('|
|00000380| 50 48 4e 4d 27 2c 20 33 | 30 30 29 3b 0d 09 09 61 |PHNM', 3|00);...a|
|00000390| 6e 65 72 72 20 3a 3d 20 | 4d 61 63 69 6e 54 61 6c |nerr := |MacinTal|
|000003a0| 6b 28 73 70 65 65 63 68 | 68 2c 20 74 68 65 74 65 |k(speech|h, thete|
|000003b0| 65 68 65 65 29 3b 0d 09 | 09 49 46 20 61 6e 65 72 |ehee);..|.IF aner|
|000003c0| 72 20 3c 3e 20 30 20 54 | 48 45 4e 0d 09 09 09 42 |r <> 0 T|HEN....B|
|000003d0| 45 47 49 4e 0d 09 09 09 | 09 70 61 72 73 74 72 20 |EGIN....|.parstr |
|000003e0| 3a 3d 20 27 45 72 72 6f | 72 20 72 65 61 64 69 6e |:= 'Erro|r readin|
|000003f0| 67 20 70 68 6f 6e 65 6d | 65 73 2e 27 3b 0d 09 09 |g phonem|es.';...|
|00000400| 09 09 74 61 6c 6b 61 6c | 65 72 74 3b 0d 09 09 09 |..talkal|ert;....|
|00000410| 45 4e 44 3b 0d 09 45 4e | 44 3b 0d 0d 09 50 52 4f |END;..EN|D;...PRO|
|00000420| 43 45 44 55 52 45 20 73 | 68 6f 77 61 62 6f 75 74 |CEDURE s|howabout|
|00000430| 3b 0d 09 42 45 47 49 4e | 0d 09 09 74 68 65 64 6c |;..BEGIN|...thedl|
|00000440| 6f 67 20 3a 3d 20 67 65 | 74 6e 65 77 64 69 61 6c |og := ge|tnewdial|
|00000450| 6f 67 28 61 62 6f 75 74 | 69 64 2c 20 4e 49 4c 2c |og(about|id, NIL,|
|00000460| 20 70 6f 69 6e 74 65 72 | 28 2d 31 29 29 3b 0d 09 | pointer|(-1));..|
|00000470| 09 6d 6f 64 61 6c 64 69 | 61 6c 6f 67 28 4e 49 4c |.modaldi|alog(NIL|
|00000480| 2c 20 64 69 74 65 6d 29 | 3b 0d 09 09 64 69 73 70 |, ditem)|;...disp|
|00000490| 6f 73 64 69 61 6c 6f 67 | 28 74 68 65 64 6c 6f 67 |osdialog|(thedlog|
|000004a0| 29 3b 0d 09 45 4e 44 3b | 0d 0d 09 50 52 4f 43 45 |);..END;|...PROCE|
|000004b0| 44 55 52 45 20 70 72 69 | 6e 74 6d 73 67 3b 0d 09 |DURE pri|ntmsg;..|
|000004c0| 42 45 47 49 4e 0d 09 09 | 4d 6f 76 65 54 6f 28 33 |BEGIN...|MoveTo(3|
|000004d0| 30 2c 20 37 30 29 3b 0d | 09 09 44 72 61 77 53 74 |0, 70);.|..DrawSt|
|000004e0| 72 69 6e 67 28 27 49 20 | 61 6d 20 76 65 72 79 20 |ring('I |am very |
|000004f0| 74 69 63 6b 6c 69 73 68 | 2e 20 20 54 6f 75 63 68 |ticklish|.  Touch|
|00000500| 20 6d 79 20 6b 65 79 73 | 20 74 6f 20 74 69 63 6b | my keys| to tick|
|00000510| 6c 65 20 6d 65 21 27 29 | 3b 0d 09 45 4e 44 3b 0d |le me!')|;..END;.|
|00000520| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 6d 61 69 6e |..PROCED|URE main|
|00000530| 65 76 65 6e 74 6c 6f 6f | 70 3b 0d 09 42 45 47 49 |eventloo|p;..BEGI|
|00000540| 4e 0d 09 09 71 75 69 74 | 20 3a 3d 20 66 61 6c 73 |N...quit| := fals|
|00000550| 65 3b 0d 09 09 49 6e 69 | 74 43 75 72 73 6f 72 3b |e;...Ini|tCursor;|
|00000560| 0d 09 09 52 45 50 45 41 | 54 0d 09 09 09 46 6c 75 |...REPEA|T....Flu|
|00000570| 73 68 45 76 65 6e 74 73 | 28 65 76 65 72 79 45 76 |shEvents|(everyEv|
|00000580| 65 6e 74 2c 20 30 29 3b | 0d 09 09 09 52 45 50 45 |ent, 0);|....REPE|
|00000590| 41 54 0d 09 09 09 09 73 | 79 73 74 65 6d 74 61 73 |AT.....s|ystemtas|
|000005a0| 6b 3b 0d 09 09 09 55 4e | 54 49 4c 20 47 65 74 4e |k;....UN|TIL GetN|
|000005b0| 65 78 74 45 76 65 6e 74 | 28 65 76 65 72 79 65 76 |extEvent|(everyev|
|000005c0| 65 6e 74 2c 20 45 76 65 | 6e 74 29 3b 0d 09 09 09 |ent, Eve|nt);....|
|000005d0| 42 45 47 49 4e 0d 09 09 | 09 09 43 41 53 45 20 45 |BEGIN...|..CASE E|
|000005e0| 76 65 6e 74 2e 57 68 61 | 74 20 4f 46 0d 09 09 09 |vent.Wha|t OF....|
|000005f0| 09 09 4d 6f 75 73 65 44 | 6f 77 6e 20 3a 20 0d 09 |..MouseD|own : ..|
|00000600| 09 09 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 09 |.....BEG|IN......|
|00000610| 09 09 43 6c 69 63 6b 52 | 67 6e 20 3a 3d 20 46 69 |..ClickR|gn := Fi|
|00000620| 6e 64 57 69 6e 64 6f 77 | 28 45 76 65 6e 74 2e 57 |ndWindow|(Event.W|
|00000630| 68 65 72 65 2c 20 57 68 | 69 63 68 57 69 6e 64 6f |here, Wh|ichWindo|
|00000640| 77 29 3b 0d 09 09 09 09 | 09 09 09 43 41 53 45 20 |w);.....|...CASE |
|00000650| 43 6c 69 63 6b 52 67 6e | 20 4f 46 0d 09 09 09 09 |ClickRgn| OF.....|
|00000660| 09 09 09 09 49 6e 4d 65 | 6e 75 42 61 72 20 3a 20 |....InMe|nuBar : |
|00000670| 0d 09 09 09 09 09 09 09 | 09 09 42 45 47 49 4e 0d |........|..BEGIN.|
|00000680| 09 09 09 09 09 09 09 09 | 09 09 4d 65 6e 75 53 65 |........|..MenuSe|
|00000690| 6c 65 63 74 65 64 20 3a | 3d 20 4d 65 6e 75 53 65 |lected :|= MenuSe|
|000006a0| 6c 65 63 74 28 45 76 65 | 6e 74 2e 57 68 65 72 65 |lect(Eve|nt.Where|
|000006b0| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 74 68 65 |);......|.....the|
|000006c0| 4d 65 6e 75 49 64 20 3a | 3d 20 48 69 57 6f 72 64 |MenuId :|= HiWord|
|000006d0| 28 4d 65 6e 75 53 65 6c | 65 63 74 65 64 29 3b 0d |(MenuSel|ected);.|
|000006e0| 09 09 09 09 09 09 09 09 | 09 09 74 68 65 49 74 65 |........|..theIte|
|000006f0| 6d 20 3a 3d 20 4c 6f 57 | 6f 72 64 28 4d 65 6e 75 |m := LoW|ord(Menu|
|00000700| 53 65 6c 65 63 74 65 64 | 29 3b 0d 09 09 09 09 09 |Selected|);......|
|00000710| 09 09 09 09 09 43 41 53 | 45 20 74 68 65 4d 65 6e |.....CAS|E theMen|
|00000720| 75 49 64 20 4f 46 0d 09 | 09 09 09 09 09 09 09 09 |uId OF..|........|
|00000730| 09 09 41 70 70 6c 65 4d | 65 6e 75 49 64 20 3a 20 |..AppleM|enuId : |
|00000740| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 49 46 20 |........|.....IF |
|00000750| 74 68 65 69 74 65 6d 20 | 3c 20 33 20 54 48 45 4e |theitem |< 3 THEN|
|00000760| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 42 45 |........|......BE|
|00000770| 47 49 4e 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |GIN.....|........|
|00000780| 09 09 73 68 6f 77 61 62 | 6f 75 74 3b 0d 09 09 09 |..showab|out;....|
|00000790| 09 09 09 09 09 09 09 09 | 09 09 45 4e 44 0d 09 09 |........|..END...|
|000007a0| 09 09 09 09 09 09 09 09 | 09 09 45 4c 53 45 0d 09 |........|..ELSE..|
|000007b0| 09 09 09 09 09 09 09 09 | 09 09 09 09 42 45 47 49 |........|....BEGI|
|000007c0| 4e 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |N.......|........|
|000007d0| 67 65 74 69 74 65 6d 28 | 41 70 70 6c 65 6d 65 6e |getitem(|Applemen|
|000007e0| 75 2c 20 74 68 65 69 74 | 65 6d 2c 20 6e 61 6d 65 |u, theit|em, name|
|000007f0| 68 6f 6c 64 65 72 29 3b | 0d 09 09 09 09 09 09 09 |holder);|........|
|00000800| 09 09 09 09 09 09 09 64 | 75 6d 6d 79 20 3a 3d 20 |.......d|ummy := |
|00000810| 6f 70 65 6e 64 65 73 6b | 61 63 63 28 6e 61 6d 65 |opendesk|acc(name|
|00000820| 68 6f 6c 64 65 72 29 3b | 0d 09 09 09 09 09 09 09 |holder);|........|
|00000830| 09 09 09 09 09 09 45 4e | 44 3b 0d 09 09 09 09 09 |......EN|D;......|
|00000840| 09 09 09 09 09 09 6d 79 | 6d 65 6e 75 69 64 20 3a |......my|menuid :|
|00000850| 20 0d 09 09 09 09 09 09 | 09 09 09 09 09 09 42 45 | .......|......BE|
|00000860| 47 49 4e 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |GIN.....|........|
|00000870| 09 49 46 20 74 68 65 49 | 74 65 6d 20 3d 20 31 20 |.IF theI|tem = 1 |
|00000880| 54 48 45 4e 0d 09 09 09 | 09 09 09 09 09 09 09 09 |THEN....|........|
|00000890| 09 09 09 42 45 47 49 4e | 0d 09 09 09 09 09 09 09 |...BEGIN|........|
|000008a0| 09 09 09 09 09 09 09 09 | 71 75 69 74 20 3a 3d 20 |........|quit := |
|000008b0| 74 72 75 65 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |true;...|........|
|000008c0| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 09 09 09 |....END;|........|
|000008d0| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 09 09 |.....END|;.......|
|000008e0| 09 09 09 09 09 4f 54 48 | 45 52 57 49 53 45 0d 09 |.....OTH|ERWISE..|
|000008f0| 09 09 09 09 09 09 09 09 | 09 45 4e 44 3b 0d 09 09 |........|.END;...|
|00000900| 09 09 09 09 09 09 09 09 | 68 69 6c 69 74 65 6d 65 |........|hiliteme|
|00000910| 6e 75 28 30 29 3b 0d 09 | 09 09 09 09 09 09 09 09 |nu(0);..|........|
|00000920| 45 4e 44 3b 0d 09 09 09 | 09 09 09 09 09 69 6e 73 |END;....|.....ins|
|00000930| 79 73 77 69 6e 64 6f 77 | 20 3a 20 0d 09 09 09 09 |yswindow| : .....|
|00000940| 09 09 09 09 09 42 45 47 | 49 4e 0d 09 09 09 09 09 |.....BEG|IN......|
|00000950| 09 09 09 09 09 73 79 73 | 74 65 6d 63 6c 69 63 6b |.....sys|temclick|
|00000960| 28 65 76 65 6e 74 2c 20 | 77 68 69 63 68 77 69 6e |(event, |whichwin|
|00000970| 64 6f 77 29 3b 0d 09 09 | 09 09 09 09 09 09 09 45 |dow);...|.......E|
|00000980| 4e 44 3b 0d 09 09 09 09 | 09 09 09 09 69 6e 43 6f |ND;.....|....inCo|
|00000990| 6e 74 65 6e 74 20 3a 20 | 0d 09 09 09 09 09 09 09 |ntent : |........|
|000009a0| 09 09 42 45 47 49 4e 0d | 09 09 09 09 09 09 09 09 |..BEGIN.|........|
|000009b0| 09 09 49 46 20 77 68 69 | 63 68 77 69 6e 64 6f 77 |..IF whi|chwindow|
|000009c0| 20 3c 3e 20 66 72 6f 6e | 74 77 69 6e 64 6f 77 20 | <> fron|twindow |
|000009d0| 54 48 45 4e 0d 09 09 09 | 09 09 09 09 09 09 09 09 |THEN....|........|
|000009e0| 42 45 47 49 4e 0d 09 09 | 09 09 09 09 09 09 09 09 |BEGIN...|........|
|000009f0| 09 09 73 65 6c 65 63 74 | 77 69 6e 64 6f 77 28 77 |..select|window(w|
|00000a00| 68 69 63 68 77 69 6e 64 | 6f 77 29 3b 0d 09 09 09 |hichwind|ow);....|
|00000a10| 09 09 09 09 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |........|END;....|
|00000a20| 09 09 09 09 09 09 45 4e | 44 3b 0d 09 09 09 09 09 |......EN|D;......|
|00000a30| 09 09 09 4f 54 48 45 52 | 57 49 53 45 0d 09 09 09 |...OTHER|WISE....|
|00000a40| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 09 09 45 |....END;|.......E|
|00000a50| 4e 44 3b 0d 09 09 09 09 | 09 6b 65 79 44 6f 77 6e |ND;.....|.keyDown|
|00000a60| 20 3a 20 0d 09 09 09 09 | 09 09 42 45 47 49 4e 0d | : .....|..BEGIN.|
|00000a70| 09 09 09 09 09 09 09 73 | 70 65 61 6b 69 74 3b 0d |.......s|peakit;.|
|00000a80| 09 09 09 09 09 09 45 4e | 44 3b 0d 09 09 09 09 09 |......EN|D;......|
|00000a90| 61 75 74 6f 4b 65 79 20 | 3a 20 0d 09 09 09 09 09 |autoKey |: ......|
|00000aa0| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 09 09 73 70 |.BEGIN..|......sp|
|00000ab0| 65 61 6b 69 74 3b 0d 09 | 09 09 09 09 09 45 4e 44 |eakit;..|.....END|
|00000ac0| 3b 0d 09 09 09 09 09 55 | 70 64 61 74 65 45 76 74 |;......U|pdateEvt|
|00000ad0| 20 3a 20 0d 09 09 09 09 | 09 09 42 45 47 49 4e 0d | : .....|..BEGIN.|
|00000ae0| 09 09 09 09 09 09 09 42 | 65 67 69 6e 55 70 64 61 |.......B|eginUpda|
|00000af0| 74 65 28 64 57 69 6e 64 | 6f 77 29 3b 0d 09 09 09 |te(dWind|ow);....|
|00000b00| 09 09 09 09 70 72 69 6e | 74 6d 73 67 3b 0d 09 09 |....prin|tmsg;...|
|00000b10| 09 09 09 09 09 45 6e 64 | 55 70 64 61 74 65 28 64 |.....End|Update(d|
|00000b20| 57 69 6e 64 6f 77 29 3b | 0d 09 09 09 09 09 09 45 |Window);|.......E|
|00000b30| 4e 44 3b 0d 09 09 09 09 | 09 4f 54 48 45 52 57 49 |ND;.....|.OTHERWI|
|00000b40| 53 45 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 45 |SE.....E|ND;....E|
|00000b50| 4e 44 3b 0d 09 09 55 4e | 54 49 4c 20 71 75 69 74 |ND;...UN|TIL quit|
|00000b60| 3b 0d 09 09 63 6c 6f 73 | 65 77 69 6e 64 6f 77 28 |;...clos|ewindow(|
|00000b70| 64 57 69 6e 64 6f 77 29 | 3b 0d 09 09 53 70 65 65 |dWindow)|;...Spee|
|00000b80| 63 68 4f 66 66 28 73 70 | 65 65 63 68 68 29 3b 0d |chOff(sp|eechh);.|
|00000b90| 09 45 4e 44 3b 0d 0d 09 | 50 52 4f 43 45 44 55 52 |.END;...|PROCEDUR|
|00000ba0| 45 20 6d 69 73 63 69 6e | 69 74 3b 0d 09 42 45 47 |E miscin|it;..BEG|
|00000bb0| 49 4e 0d 09 09 46 6c 75 | 73 68 45 76 65 6e 74 73 |IN...Flu|shEvents|
|00000bc0| 28 65 76 65 72 79 45 76 | 65 6e 74 2c 20 30 29 3b |(everyEv|ent, 0);|
|00000bd0| 0d 09 09 4f 6c 64 4d 65 | 6e 75 20 3a 3d 20 47 65 |...OldMe|nu := Ge|
|00000be0| 74 4d 65 6e 75 42 61 72 | 3b 0d 09 09 43 6c 65 61 |tMenuBar|;...Clea|
|00000bf0| 72 4d 65 6e 75 42 61 72 | 3b 0d 09 09 41 70 70 6c |rMenuBar|;...Appl|
|00000c00| 65 4d 65 6e 75 20 3a 3d | 20 67 65 74 6d 65 6e 75 |eMenu :=| getmenu|
|00000c10| 28 41 70 70 6c 65 4d 65 | 6e 75 49 64 29 3b 0d 09 |(AppleMe|nuId);..|
|00000c20| 09 49 6e 73 65 72 74 4d | 65 6e 75 28 41 70 70 6c |.InsertM|enu(Appl|
|00000c30| 65 4d 65 6e 75 2c 20 30 | 29 3b 0d 09 09 61 64 64 |eMenu, 0|);...add|
|00000c40| 72 65 73 6d 65 6e 75 28 | 41 70 70 6c 65 4d 65 6e |resmenu(|AppleMen|
|00000c50| 75 2c 20 27 44 52 56 52 | 27 29 3b 0d 09 09 4d 79 |u, 'DRVR|');...My|
|00000c60| 4d 65 6e 75 20 3a 3d 20 | 4e 65 77 4d 65 6e 75 28 |Menu := |NewMenu(|
|00000c70| 4d 79 4d 65 6e 75 49 64 | 2c 20 27 46 69 6c 65 27 |MyMenuId|, 'File'|
|00000c80| 29 3b 0d 09 09 41 70 70 | 65 6e 64 4d 65 6e 75 28 |);...App|endMenu(|
|00000c90| 4d 79 4d 65 6e 75 2c 20 | 27 51 75 69 74 27 29 3b |MyMenu, |'Quit');|
|00000ca0| 0d 09 09 49 6e 73 65 72 | 74 4d 65 6e 75 28 4d 79 |...Inser|tMenu(My|
|00000cb0| 4d 65 6e 75 2c 20 30 29 | 3b 0d 09 09 44 72 61 77 |Menu, 0)|;...Draw|
|00000cc0| 4d 65 6e 75 42 61 72 3b | 0d 09 09 53 65 74 52 65 |MenuBar;|...SetRe|
|00000cd0| 63 74 28 64 52 65 63 74 | 2c 20 31 30 30 2c 20 35 |ct(dRect|, 100, 5|
|00000ce0| 30 2c 20 34 35 30 2c 20 | 32 30 30 29 3b 0d 09 09 |0, 450, |200);...|
|00000cf0| 64 57 69 6e 64 6f 77 20 | 3a 3d 20 4e 65 77 57 69 |dWindow |:= NewWi|
|00000d00| 6e 64 6f 77 28 40 64 52 | 65 63 6f 72 64 2c 20 64 |ndow(@dR|ecord, d|
|00000d10| 52 65 63 74 2c 20 27 75 | 6e 74 69 74 6c 65 64 20 |Rect, 'u|ntitled |
|00000d20| 27 2c 20 74 72 75 65 2c | 20 64 42 6f 78 50 72 6f |', true,| dBoxPro|
|00000d30| 63 2c 20 4e 49 4c 2c 20 | 66 61 6c 73 65 2c 20 6c |c, NIL, |false, l|
|00000d40| 6f 6e 67 69 6e 74 28 30 | 29 29 3b 0d 09 09 53 65 |ongint(0|));...Se|
|00000d50| 74 50 6f 72 74 28 64 57 | 69 6e 64 6f 77 29 3b 0d |tPort(dW|indow);.|
|00000d60| 09 09 70 72 69 6e 74 6d | 73 67 3b 0d 09 09 61 6e |..printm|sg;...an|
|00000d70| 65 72 72 20 3a 3d 20 30 | 3b 0d 09 09 61 6e 65 72 |err := 0|;...aner|
|00000d80| 72 20 3a 3d 20 53 70 65 | 65 63 68 4f 6e 28 6e 6f |r := Spe|echOn(no|
|00000d90| 52 65 61 64 65 72 2c 20 | 73 70 65 65 63 68 68 29 |Reader, |speechh)|
|00000da0| 3b 0d 09 09 49 46 20 61 | 6e 65 72 72 20 3c 3e 20 |;...IF a|nerr <> |
|00000db0| 30 20 54 48 45 4e 0d 09 | 09 09 42 45 47 49 4e 0d |0 THEN..|..BEGIN.|
|00000dc0| 09 09 09 09 70 61 72 73 | 74 72 20 3a 3d 20 27 4d |....pars|tr := 'M|
|00000dd0| 61 63 69 6e 54 61 6c 6b | 20 63 61 6e 6e 6f 74 20 |acinTalk| cannot |
|00000de0| 62 65 20 6f 70 65 6e 65 | 64 2e 27 3b 0d 09 09 09 |be opene|d.';....|
|00000df0| 09 74 61 6c 6b 61 6c 65 | 72 74 3b 0d 09 09 09 45 |.talkale|rt;....E|
|00000e00| 4e 44 3b 0d 09 45 4e 44 | 3b 0d 0d 42 45 47 49 4e |ND;..END|;..BEGIN|
|00000e10| 0d 09 6d 69 73 63 69 6e | 69 74 3b 0d 09 6d 61 69 |..miscin|it;..mai|
|00000e20| 6e 65 76 65 6e 74 6c 6f | 6f 70 3b 0d 45 4e 44 2e |neventlo|op;.END.|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000e90| 0f f0 07 f0 03 e0 00 08 | 00 08 00 00 00 44 3f 00 |........|.....D?.|
|00000ea0| 3f 00 3f 00 3f 00 40 80 | 84 40 84 40 84 60 9c 60 |?.?.?.@.|.@.@.`.`|
|00000eb0| 0a 54 69 63 6b 6c 65 2e | 54 78 74 01 02 00 00 00 |.Tickle.|Txt.....|
|00000ec0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00000ed0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 a9 7f f3 b4 00 00 | 00 00 00 00 01 5c 00 26 |........|.....\.&|
|00000f00| ff ff ff ff ff ff ff ff | dd ff 77 ff dd ff 77 ff |........|..w...w.|
|00000f10| dd 77 dd 77 dd 77 dd 77 | aa 55 aa 55 aa 55 aa 55 |.w.w.w.w|.U.U.U.U|
|00000f20| 55 ff 55 ff 55 ff 55 ff | aa aa aa aa aa aa aa aa |U.U.U.U.|........|
|00000f30| ee dd bb 77 ee dd bb 77 | 88 88 88 88 88 88 88 88 |...w...w|........|
|00000f40| b1 30 03 1b d8 c0 0c 8d | 80 10 02 20 01 08 40 04 |.0......|... ..@.|
|00000f50| ff 88 88 88 ff 88 88 88 | ff 80 80 80 ff 08 08 08 |........|........|
|00000f60| 80 00 00 00 00 00 00 00 | 80 40 20 00 02 04 08 00 |........|.@ .....|
|00000f70| 82 44 39 44 82 01 01 01 | f8 74 22 47 8f 17 22 71 |.D9D....|.t"G.."q|
|00000f80| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000f90| 00 04 00 04 00 04 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000fa0| 00 16 00 00 00 46 00 00 | cc 24 02 f2 00 00 00 1c |.....F..|.$......|
|00000fb0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000fc0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 81 10 |........|........|
|00000fd0| 03 ec ff ff 00 00 00 0e | 00 01 80 f8 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+